home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / maxicras.arc / MCRASVC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-03-23  |  3.0 KB  |  45 lines
  1. 10  'Copyright (c) 1983,1984 by Exador, Inc.
  2. 15  'MCRASVC - Version A.7\SANYO
  3. 30  DEFINT B-D,F-Z:DEFDBL A,E:COMMON M$(),F$(),PDISK$,DDISK$,PDDISK$:CHAIN MERGE"INKEY.BAS",40
  4. 40  ON ERROR GOTO 320:GOSUB 61000
  5. 90  GOSUB 290:GOSUB 980:DIM AE(224),AC$(224),AB(224):DEF FNS$(A)=MID$(STR$(A),2):CLS:LOCATE 12,16:IF F$(4)="VC"THEN PRINT"* * * MAXI C.R.A.S. to VISICALC Transfer Routine * * *
  6. 155  IF F$(4)<>"VC"THEN PRINT"* * * MAXI C.R.A.S. to SuperCalc Transfer Routine * * *
  7. 160  TL=0:OPEN"R",3,PDDISK$+F$(20),21:FIELD#3, 21 AS ACCNAME$:FOR I=1 TO NA-1:GET#3,I:AC$(I)=ACCNAME$:NEXT I:IF F$(4)="VC"THEN TL$=">N"+FNS$(NA)+":"+CHR$(34)+" " ELSE 1160
  8. 270  GOSUB 1090:GOTO 550
  9. 290  OPEN"R",2,PDDISK$+F$(19),256:IF F$(4)="VC"THEN OPEN"O",1,PDDISK$+"MAXICRAS.VC" ELSE OPEN"O",1,PDDISK$+"MAXICRAS.XQT
  10. 310  RETURN
  11. 320  EC=ERR:IF(EC=53 OR EC=54 OR EC=70 OR EC=71)AND CF=1 THEN RESUME NEXT
  12. 340  RESUME
  13. 350  CLOSE#2:OPEN"R",2,PDDISK$+F$(19),8:FIELD#2, 8 AS G2$
  14. 380  FOR DP=1 TO NA:GET#2,(TM-1)*NA+DP:AE(DP)=CVD(G2$):NEXT DP:FOR DP=1 TO NA:GET#2,TM*NA+DP:AB(DP)=CVD(G2$):NEXT DP:RETURN
  15. 480  TM=M-FY+1:IF TM<1 THEN TM=TM+12:RETURN
  16. 500  RETURN
  17. 510  IF M<FY THEN YR$=FNS$(VAL(TY$)+1):RETURN
  18. 520  RETURN
  19. 530  PNM$="MASMENU.BAS":GOTO 62000
  20. 550  IF F$(4)="VC"THEN BEGIN=NA-1:FINISH=1:INCREMENT=-1 ELSE BEGIN=1:FINISH=NA-1:INCREMENT=1
  21. 555  FOR I=BEGIN TO FINISH STEP INCREMENT:IF F$(4)="VC"THEN TL$=">A"+FNS$(I+1)+":"+CHR$(34)+AC$(I)
  22. 565  IF F$(4)<>"VC"THEN IF(I=1 OR(I/18=INT(I/18)))THEN TL$="=A"+FNS$(I+1):GOSUB 1090:TL$=CHR$(34)+AC$(I) ELSE TL$=CHR$(34)+AC$(I)
  23. 570  GOSUB 1090:NEXT I:IF F$(4)="VC"THEN TL$=">B1:/FR"+CHR$(34)+"Opening Balances" ELSE TL$="=B1":GOSUB 1090:TL$=CHR$(34)+"Opening Balances
  24. 600  GOSUB 1090:M=IM:GOSUB 480:GOSUB 350:FOR I=BEGIN TO FINISH STEP INCREMENT:IF(F$(4)="VC"AND ABS(AE(I))<=0.004)THEN 660
  25. 655  IF(F$(4)="VC"AND AE(I)=>0)THEN TL$=">B"+FNS$(I+1)+":"+FNS$(AE(I)):GOSUB 1090:GOTO 660
  26. 656  IF F$(4)="VC"THEN TL$=">B"+FNS$(I+1)+":"+STR$(AE(I)):GOSUB 1090:GOTO 660
  27. 657  IF(I=1 OR(I/18=INT(I/18)))THEN TL$="=B"+FNS$(I+1):GOSUB 1090:TL$=STR$(AE(I)):GOSUB 1090 ELSE TL$=STR$(AE(I)):GOSUB 1090
  28. 660  NEXT I:JJ=1:M=IM
  29. 690  GOSUB 480:GOSUB 510:IF F$(4)="VC"THEN TL$=">"+CHR$(66+JJ)+"1:/FR"+CHR$(34)+FNS$(M)+"/"+RIGHT$(YR$,2)
  30. 715  IF F$(4)<>"VC"THEN TL$="="+CHR$(66+JJ)+"1":GOSUB 1090:TL$=CHR$(34)+FNS$(M)+"/"+RIGHT$(YR$,2)
  31. 720  GOSUB 1090:GOSUB 380:FOR I=BEGIN TO FINISH STEP INCREMENT:IF(F$(4)="VC"AND ABS(AB(I)-AE(I))<=0.004)THEN 760
  32. 755  IF(F$(4)="VC"AND(AB(I)-AE(I))=>0)THEN TL$=">"+CHR$(66+JJ)+FNS$(I+1)+":"+FNS$(AB(I)-AE(I)):GOSUB 1090:GOTO 760
  33. 756  IF F$(4)="VC"THEN TL$=">"+CHR$(66+JJ)+FNS$(I+1)+":"+STR$(AB(I)-AE(I)):GOSUB 1090:GOTO 760
  34. 757  IF(I=1 OR(I/18=INT(I/18)))THEN TL$="="+CHR$(66+JJ)+FNS$(I+1):GOSUB 1090:TL$=STR$(AB(I)-AE(I)):GOSUB 1090:GOTO 760
  35. 758  TL$=STR$(AB(I)-AE(I)):GOSUB 1090
  36. 760  NEXT I:JJ=JJ+1:IF M<>M1 THEN M=M+1:IF M<=12 THEN 690 ELSE M=M-12:GOTO 690
  37. 790  IF F$(4)="VC"THEN TL$="/W1" ELSE TL$="/GA":GOSUB 1090:TL$="=B1":GOSUB 1090:GOTO 950
  38. 800  GOSUB 1090:TL$="/GOC":GOSUB 1090:TL$="/GRA":GOSUB 1090:TL$="/GF$":GOSUB 1090:TL$="/GC19":GOSUB 1090:TL$="/X>A1:>A1:/TH":GOSUB 1090:TL$=">A1:/TV":GOSUB 1090:TL$="/X>A1:>B2":GOSUB 1090
  39. 950  GOSUB 1120:CLOSE:GOTO 530
  40. 980  FIELD#2,2 AS IM$,4 AS RY$,80 AS NM$,2 AS M1$,2 AS Q1$,2 AS QM$,2 AS QJ$,80 AS DX$,2 AS FY$,2 AS MF$,2 AS NA$:GET#2,92:IM=CVI(IM$):YR$=RY$:TY$=RY$:M1=CVI(M1$):Q1=CVI(Q1$):NA=CVI(NA$):FY=CVI(FY$):MF=CVI(MF$):RETURN
  41. 1090  TL=TL+LEN(TL$)+1:PRINT#1,TL$:RETURN
  42. 1120  TY=INT(TL/256):IF TY*256=TL+1 THEN RETURN
  43. 1140  TL$=STRING$((TY+1)*256-TL-1,0):GOTO 1090
  44. 1160  TL$="/ZY":GOSUB 1090:TL$="v":GOSUB 1090:TL$="/GM":GOSUB 1090:TL$="/FCA,22":GOSUB 1090:TL$="/FG17":GOSUB 1090:TL$="/FG$":GOSUB 1090:TL$="/FR1,TR":GOSUB 1090:TL$="=A1":GOSUB 1090:TL$="/TB":GOSUB 1090:GOTO 550
  45.